﻿Public Class Form1

    Private Sub BuscaPacienteToolStripMenuItem_Click(sender As Object, e As EventArgs)


    End Sub

    Private Sub PToolStripMenuItem_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub RegistarVisiatasDiariasAlPacienteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RegistarVisiatasDiariasAlPacienteToolStripMenuItem.Click
        Registar_Visiatas_diarias_paciente.ShowDialog()
    End Sub

    Private Sub ConsultarStockDelMedicamentoToolStripMenuItem_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub EditarMedicamentoDiarioAlPacienteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EditarMedicamentoDiarioAlPacienteToolStripMenuItem.Click
        Editar_medicamento_Diario_paciente.Show()
    End Sub

    Private Sub RegistarMedicamentoDiarioAlPacienteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RegistarMedicamentoDiarioAlPacienteToolStripMenuItem.Click
        Registar_medicamento_Diario_paciente.ShowDialog()
    End Sub

    Private Sub IngresarLaAlimentacionDelPacienteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IngresarLaAlimentacionDelPacienteToolStripMenuItem.Click
        Ingresar_Alimentacion_Paciente.ShowDialog()
    End Sub

    Private Sub IngresarPacienteToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles IngresarPacienteToolStripMenuItem1.Click
        Ingresar_Paciente.ShowDialog()
    End Sub

    Private Sub RegistarAlimentacionDiariaAlPacienteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RegistarAlimentacionDiariaAlPacienteToolStripMenuItem.Click
        Ingresar_Alimentacion_Paciente.ShowDialog()
    End Sub

    Private Sub RegistrarMedicamentosAPacientesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RegistrarMedicamentosAPacientesToolStripMenuItem.Click
        Registar_medicamento_Diario_paciente.ShowDialog()
    End Sub

    Private Sub IngresarCobrosToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles IngresarCobrosToolStripMenuItem1.Click
        Cobro_Estadia.Show()
    End Sub

    Private Sub EditarPacienteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EditarPacienteToolStripMenuItem.Click
        Editar_Paciente.Show()
    End Sub

    Private Sub EliminarToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EliminarToolStripMenuItem.Click
        Eliminar_Paciente.Show()
    End Sub

    Private Sub EdiatarVisiatasDiariasAlPacienteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EdiatarVisiatasDiariasAlPacienteToolStripMenuItem.Click
        Editar_Visita_Paciente.Show()
    End Sub

    Private Sub RegistarAlimentacionDiariaAlPacienteToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles RegistarAlimentacionDiariaAlPacienteToolStripMenuItem1.Click
        Editar_Alimentacion_Paciente.Show()
    End Sub

    Private Sub EdiatarVisiatasDiariasAlPacienteToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EdiatarVisiatasDiariasAlPacienteToolStripMenuItem1.Click
        Consultar_Visiatas_diarias_paciente.Show()
    End Sub

    Private Sub EliminarVisiatasDiariasAlPacienteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EliminarVisiatasDiariasAlPacienteToolStripMenuItem.Click
        Eliminar_Visiatas_diarias_paciente.Show()
    End Sub

    Private Sub ConsultarMedicamentoDiarioAlPacienteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ConsultarMedicamentoDiarioAlPacienteToolStripMenuItem.Click
        Consultar_medicamento_Diario_paciente.Show()
    End Sub

    Private Sub RegistarAlimentacionDiariaAlPacienteToolStripMenuItem2_Click(sender As Object, e As EventArgs) Handles RegistarAlimentacionDiariaAlPacienteToolStripMenuItem2.Click
        Consultar_Alimentacion_Paciente.Show()
    End Sub

    Private Sub EliminarMedicamentoDiarioAlPacienteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EliminarMedicamentoDiarioAlPacienteToolStripMenuItem.Click
        Eliminar_medicamento_Diario_paciente.Show()
    End Sub

    Private Sub RegistarAlimentacionDiariaAlPacienteToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles RegistarAlimentacionDiariaAlPacienteToolStripMenuItem3.Click
        Eliminar_Alimentacion_Paciente.Show()
    End Sub

    Private Sub ConsultarMedicamentosAPacientesToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ConsultarMedicamentosAPacientesToolStripMenuItem1.Click
        Consultar_medicamento_Diario_paciente.Show()
    End Sub

    Private Sub EditarMedicamentoAPacientesToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles EditarMedicamentoAPacientesToolStripMenuItem1.Click
        Editar_medicamento_Diario_paciente.Show()
    End Sub

    Private Sub EliminarMedicamentoAPacientesToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EliminarMedicamentoAPacientesToolStripMenuItem.Click
        Eliminar_medicamento_Diario_paciente.Show()
    End Sub

    Private Sub EditarLaAlimentacionDelPacienteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EditarLaAlimentacionDelPacienteToolStripMenuItem.Click
        Editar_Alimentacion_Paciente.Show()
    End Sub

    Private Sub ConsultarLaAlimentacionDelPacienteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ConsultarLaAlimentacionDelPacienteToolStripMenuItem.Click
        Consultar_Alimentacion_Paciente.Show()
    End Sub

    Private Sub EliminarAlimentacionAlPacienteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EliminarAlimentacionAlPacienteToolStripMenuItem.Click
        Eliminar_Alimentacion_Paciente.Show()
    End Sub

    Private Sub ConsultarCobrosToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ConsultarCobrosToolStripMenuItem.Click
        Consultar_Cobro_Estadia.Show()
    End Sub

    Private Sub ElimanrCobrosToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ElimanrCobrosToolStripMenuItem.Click
        Eliminar_Cobro_Estadia.Show()
    End Sub

    Private Sub ToolStripStatusLabel1_Click(sender As Object, e As EventArgs) Handles ToolStripStatusLabel1.Click

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ToolStripStatusLabel1.Text = Date.Now().ToShortDateString()
    End Sub
End Class
